home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / pl0 / recread.pl0 < prev   
Encoding:
Text File  |  1994-09-22  |  128 b   |  12 lines
  1.  
  2. procedure readch;
  3. var i;
  4. begin
  5.   read(i);
  6.   if i # 0 then call readch;
  7.   write(i)
  8. end;
  9.  
  10. begin
  11.   call readch
  12. end.əəəə